home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / comm1 / phncll22.lha / PhoneCall2.2 / Install_Greek < prev    next >
Text File  |  1995-11-08  |  20KB  |  548 lines
  1. ; $VER: Install_PhoneCall 2.6 (7.11.95)
  2. ; Install script for PhoneCall on Workbench 2.1 or higher
  3.  
  4. ;========================================================
  5. ; English strings
  6.  
  7. (set default_lang 256)
  8.  
  9.   (set #msg-bad-kick          (cat "\nYou have to use at least\nAmigaOS 2.04\nto use PhoneCall."))
  10.   (set #msg-pcalldest         (cat "Please select the path where to install PhoneCall. A drawer 'PhoneCall' will be created."))
  11.   (set #msg-abort             "File \"PhoneCall\" already exists.")
  12.   (set #msg-existMsg          (cat "\n\nThere already exists a copy of `PhoneCall'. "
  13.                               "If you proceed, existing files will be updated. Your phonebook "
  14.                               "will be leaved untouched."))
  15.   (set #msg-destdir           (cat "Please select the path where to install the main program\n'PhoneCall'."
  16.                               "\nWBStartup, f.e."))
  17.   (set #msg-copypc            "\nCopying PhoneCall to\n")
  18.   (set #msg-askicon           "Please, select an program-icon to install.\n")
  19.   (set #msg-icon1             "MagicWB standard icon")
  20.   (set #msg-icon2             "MagicWB icon by Jodel (Schneider)")
  21.   (set #msg-icon3             "ROM Icon (grey) by Roman Patzner")
  22.   (set #msg-icon4             "ROM Icon (brown) by Roman Patzner")
  23.   (set #msg-icon5             "NewIcon")
  24.   (set #msg-installIcon       "Installing %s...")
  25.   (set #msg-askdoc            "Please select the manual(s) to install.\n")
  26.   (set #msg-guidedoc          "German AmigaGuide manual")
  27.   (set #msg-dvidoc            "German DVI manual")
  28.   (set #msg-txtdoc            "German manual (ASCII)")
  29.   (set #msg-txtdoc3           "Greek manual (ASCII)")
  30.   (set #msg-guidedoc3         "Greek AmigaGuide manual")
  31.   (set #msg-installguide      "Installing amigaguide manual...")
  32.   (set #msg-installdvi        "Installing DVI manual...")
  33.   (set #msg-installtxt        "Installing ASCII manual...")
  34.   (set #msg-asklanguage       "Which language catalog(s) do you want to install?")
  35.   (set #msg-language0         "english (built-in)")
  36.   (set #msg-language1         "german")
  37.   (set #msg-language2         "français")
  38.   (set #msg-language3         "greek")
  39.   (set #msg-languagehelp      (cat "If you are using a version of the AmigaOS which "
  40.                               "does not support localization, please do not install "
  41.                               "a catalog file.\n\n "
  42.                               "The english built-in language does not require "
  43.                               "a catalog file."))
  44.   (set #msg-installlanguage1  "Installing german catalog for PhoneCall...")
  45.   (set #msg-installlanguage2  "Installing français catalog for PhoneCall...")
  46.   (set #msg-askonline         "Which onlinehelp(s) do you want to install?")
  47.   (set #msg-onlinehelp        (cat "If you are using a version of the AmigaOS which "
  48.                               "does not support localization, please do not install "
  49.                               "onlinehelp(s)."))
  50.   (set #msg-installonline1    "Installing german onlinehelp for PhoneCall...")
  51.   (set #msg-installonline2    "Installing français online-help for PhoneCall...")
  52.   (set #msg-installonline3    "Installing greek online-help for PhoneCall...")
  53.   (set #msg-asktextfield      (cat "\nDo you want to install the\n\nTextField.gadget Version %ld.%ld\n"
  54.                               "\ninto 'SYS:Classes/Gadgets'?\n"
  55.                               "\nYour current version is %ld.%ld\n\n"))
  56.   (set #msg-textfieldhelp     "Installs the TextField.gadget in your 'SYS:Classes/Gadgets' directory.")
  57.   (set #msg-installtextfield  "\nInstalling TextField.gadget...\n")
  58.   (set #msg-installpb         "\nInstalling initial PhoneCall phonebook...\n")
  59.   (set #msg-bye               "Have fun with PhoneCall\nPlease, support the idea of shareware!")
  60.   (set #msg-docdir            "Manual")
  61.  
  62.  
  63. ;========================================================
  64. ; Greek strings
  65.  
  66. (if (= @language "GREEK")
  67.  (
  68.   (set default_lang 1)
  69.  
  70.   (set #msg-bad-kick          (cat "\nÁðáéôåßôáé ç ýðáñîç ôïõëÜ÷éóôïí ôïõ\nAmigaOS 2.04\nãéá ôçí ÷ñÞóç ôïõ PhoneCall."))
  71.   (set #msg-pcalldest         (cat "Ðáñáêáëþ åðéëÝîôå ôï äßóêï ðïõ èÝëåôå íá åãêáôáóôáèåß ôï PhoneCall. Åíá óõñôÜñé ìå üíïìá 'PhoneCall'\nèá äçìéïõñãçèåß åêåß."))
  72.   (set #msg-abort             "Ôï áñ÷åßï \"PhoneCall\" Þäç õðÜñ÷åé.")
  73.   (set #msg-existMsg          (cat "\n\nÕðÜñ÷åé Þäç åãêáôåóôçìÝíï åêåß Ýíá áíôßãñáöï ôïõ `PhoneCall'. "
  74.                               "ÅÜí óõíå÷ßóåôå, ôá Þäç åãêáôåóôçìÝíá áñ÷åßá èá áíáíåùèïýí. Ï äéêüò óáò üìùò ôçëåöùíéêüò êáôÜëïãïò "
  75.                               "èá ðáñáìåßíåé áíÝðáöïò."))
  76.   (set #msg-destdir           (cat "Ðáñáêáëþ åðéëÝîôå ôï äßóêï ðïõ èá åãêáôáóôáèåß ôï êõñßùò ðñüãñáììá\n'PhoneCall'."
  77.                               "\nWBStartup, ãéá ðáñÜäåéãìá."))
  78.   (set #msg-copypc            "\nÁíôéãñáöÞ ôïõ PhoneCall óôï\n")
  79.   (set #msg-askicon           "Ðáñáêáëþ åðéëÝîôå Ýíá åéêïíßäéï ðñïãñÜììáôïò ãéá ôçí åãêáôÜóôáóç.\n")
  80.   (set #msg-icon1             "Åéêïíßäéï MagicWB")
  81.   (set #msg-icon2             "Åéêïíßäéï MagicWB áðü ôïí Jodel (Schneider)")
  82.   (set #msg-icon3             "Åéêïíßäéï ROM (ãêñß) áðü ôïí Roman Patzner")
  83.   (set #msg-icon4             "Åéêïíßäéï ROM (êáöÝ) áðü ôïí Roman Patzner")
  84.   (set #msg-icon5             "Åéêïíßäéï NewIcon")
  85.   (set #msg-installIcon       "ÅãêáôÜóôáóç %s...")
  86.   (set #msg-askdoc            "Ðáñáêáëþ åðéëÝîôå ôçí/ôéò ïäçãßåò ÷ñÞóçò ðñïò åãêáôÜóôáóç.\n")
  87.   (set #msg-guidedoc          "ÃåñìáíéêÝò ïäçãßåò ÷ñÞóçò óå ìïñöÞ AmigaGuide")
  88.   (set #msg-dvidoc            "ÃåñìáíéêÝò ïäçãßåò ÷ñÞóçò óå ìïñöÞ DVI")
  89.   (set #msg-txtdoc            "ÃåñìáíéêÝò ïäçãßåò ÷ñÞóçò óå ìïñöÞ ASCII")
  90.   (set #msg-txtdoc3           "ÅëëçíéêÝò ïäçãßåò ÷ñÞóçò óå ìïñöÞ ASCII")
  91.   (set #msg-guidedoc3         "ÅëëçíéêÝò ïäçãßåò ÷ñÞóçò óå ìïñöÞ AmigaGuide")
  92.   (set #msg-installguide      "ÅãêáôÜóôáóç ïäçãéþí ÁmigaGuide...")
  93.   (set #msg-installdvi        "ÅãêáôÜóôáóç ïäçãéþí DVI...")
  94.   (set #msg-installtxt        "ÅãêáôÜóôáóç ïäçãéþí ASCII...")
  95.   (set #msg-asklanguage       "Ðïéá/åò ãëùóóéêÝò ðåñéãñáöÝò (êáôÜëïãïé) èÝëåôå íá åãêáôáóôáèïýí;")
  96.   (set #msg-language0         "áããëéêÜ (ðåñéÝ÷ïíôáé ìÝóá óôï ðñüãñáììá)")
  97.   (set #msg-language1         "ãåñìáíéêÜ")
  98.   (set #msg-language2         "ãáëëéêÜ")
  99.   (set #msg-language3         "åëëçíéêÜ")
  100.   (set #msg-languagehelp      (cat "ÅÜí ÷ñçóéìïðïéÞôå ìéá Ýêäïóç ôïõ AmigaOS ç ïðïßá"
  101.                               "äåí õðïóôçñßæåé ðïëýãëùóóï óýóôçìá, ðáñáêáëþ "
  102.                               "ìçí åðéëÝãåôå ãëùóóéêÞ ðåñéãñáöÞ.\n\n "
  103.                               "Ôá áããëéêÜ ìçíýìáôá óôï ðñüãñáììá äåí áðáéôïýí "
  104.                               "ôçí ýðáñîç áñ÷åßïõ ãëùóóéêÞò ðåñéãñáöÞò. "))
  105.   (set #msg-installlanguage1  "ÅãêáôÜóôáóç Ãåñìáíéêïý êáôáëüãïõ...")
  106.   (set #msg-installlanguage2  "ÅãêáôÜóôáóç Ãáëëéêïý êáôáëüãïõ...")
  107.   (set #msg-installlanguage3  "ÅãêáôÜóôáóç Åëëçíéêïý êáôáëüãïõ...")
  108.   (set #msg-askonline         "Ðïéá áñ÷åßá on-line âïÞèåéáò èÝëåôå íá åãêáôáóôáèïýí;")
  109.   (set #msg-onlinehelp        (cat "ÅÜí ÷ñçóéìïðïéÞôå ìéá Ýêäïóç ôïõ AmigaOS ç ïðïßá"
  110.                               "äåí õðïóôçñßæåé ðïëýãëùóóï óýóôçìá, ðáñáêáëþ "
  111.                               "ìçí åðéëÝãåôå on-line âïÞèåéá.\n\n "))
  112.   (set #msg-installonline1    "ÅãêáôÜóôáóç ãåñìáíéêÞò on-line âïÞèåéáò...")
  113.   (set #msg-installonline2    "ÅãêáôÜóôáóç ãáëëéêÞò on-line âïÞèåéáò...")
  114.   (set #msg-installonline3    "ÅãêáôÜóôáóç åëëçíéêÞò on-line âïÞèåéáò...")
  115.   (set #msg-asktextfield      (cat "\nÈÝëåôå íá åãêáôáóôÞóù ôï\n\nTextField.gadget Åêäïóç %ld.%ld\n"
  116.                               "\nóôï óõñôÜñé 'SYS:Classes/Gadgets';\n"
  117.                               "\nÇ Ýêäïóç ðïõ õðÜñ÷åé Þäç åßíáé ç %ld.%ld\n\n"))
  118.   (set #msg-textfieldhelp     "ÅãêáèéóôÜ ôï áñ÷åßï TextField.gadget óôï óõñôÜñé 'SYS:Classes/Gadgets'.")
  119.   (set #msg-installtextfield  "\nÅãêáôÜóôáóç áñ÷åßïõ TextField.gadget...\n")
  120.   (set #msg-installpb         "\nÅãêáôÜóôáóç áñ÷éêïý ôçëåöùíéêïý êáôáëüãïõ...\n")
  121.   (set #msg-bye               "Áðüäïóç óôá ÅëëçíéêÜ: ÌçíÜò Í. ÌçëéáñÜò\n\nÏé äçìéïõñãïß ôïõ PhoneCall óáò\nðáñáêáëïýí íá õðïóôçñßîôå ôçí éäÝá ôïõ shareware!")
  122.   (set #msg-docdir            "Áñ÷åßï Ïäçãéþí")
  123.  )
  124. )
  125.  
  126. ;========================================================
  127. ; German strings
  128.  
  129. (if (= @language "DEUTSCH")
  130.  (
  131.   (set default_lang 1)
  132.  
  133.   (set #msg-bad-kick          (cat "\nSie müssen mindestens\nAmigaOS 2.04\nhaben, wenn Sie PhoneCall benutzen möchten."))
  134.   (set #msg-pcalldest         (cat "Wählen Sie wohin `PhoneCall' installiert werden soll.\nEin Verzeichnis 'PhoneCall' wird automatisch angelegt."))
  135.   (set #msg-abort             "Es ist bereits eine Datei mit dem Namen \"PhoneCall\" vorhanden.")
  136.   (set #msg-existMsg          (cat "\n\nEine Kopie von `PhoneCall' existiert bereits. "
  137.                                "Wenn Sie fortfahren, wird diese erneuert. Weitere Dateien "
  138.                                "werden überschrieben (Ihr Telefonbuch bleibt unverändert)."))
  139.   (set #msg-destdir           (cat "Wählen Sie ein Verzeichnis in welches das Hauptprogramm\n'PhoneCall' installiert werden soll."
  140.                                "\nz.B. WBStartup ..."))
  141.   (set #msg-copypc            "\nKopiere PhoneCall zu \n")
  142.   (set #msg-askicon           "Wählen Sie das Programm-Icon aus, welches Sie installieren möchten.\n")
  143.   (set #msg-icon1             "MagicWB Standard Icon")
  144.   (set #msg-icon2             "MagicWB Icon von Jodel (Schneider)")
  145.   (set #msg-icon3             "ROM Icon (grau) Roman Patzner")
  146.   (set #msg-icon4             "ROM Icon (brau) Roman Patzner")
  147.   (set #msg-icon5             "NewIcon")
  148.   (set #msg-installIcon       "Installiere das %s...")
  149.   (set #msg-askdoc            "Wählen Sie die Dokumentation(en) aus, die Sie installieren möchten.\n")
  150.   (set #msg-guidedoc          "deutsche AmigaGuide Anleitung")
  151.   (set #msg-dvidoc            "deutsche DVI-Anleiting")
  152.   (set #msg-txtdoc            "deutsche Anleitung in ASCII")
  153.   (set #msg-txtdoc3           "griechische Anleitung in ASCII")
  154.   (set #msg-guidedoc3         "griechische AmigaGuide Anleitung")
  155.   (set #msg-installguide      "Installiere AmigaGuide Anleitung...")
  156.   (set #msg-installdvi        "Installiere DVI Anleitung...")
  157.   (set #msg-installtxt        "Installiere ASCII Anleitung...")
  158.   (set #msg-asklanguage       "Welche Sprache(n) möchten Sie installieren?")
  159.   (set #msg-language0         "english (eingebaut)")
  160.   (set #msg-language1         "deutsch")
  161.   (set #msg-language2         "französisch")
  162.   (set #msg-language3         "griechisch")
  163.   (set #msg-languagehelp      (cat "Wenn Sie eine Version des AmigaOS besitzen, "
  164.                                "die keine Lokalisierung unterstützt, "
  165.                                "installieren Sie bitte keine Sprache.\n\n "
  166.                                "Die in PhoneCall eingebaute englische Sprache "
  167.                                "benötigt keinen Katalog! "))
  168.   (set #msg-installlanguage1  "Installiere deutschen Katalog für PhoneCall...")
  169.   (set #msg-installlanguage2  "Installiere französischen Katalog für PhoneCall...")
  170.   (set #msg-askonline         "Welche OnlineHilfe(n) wollen Sie installieren?")
  171.   (set #msg-onlinehelp        (cat "Wenn Sie eine Version des AmigaOS besitzen, "
  172.                                "die keine Lokalisierung unterstützt, "
  173.                                "installieren Sie bitte keine Online-Hilfe.\n\n "))
  174.   (set #msg-installonline1    "Installiere deutsche Online-Hilfe für PhoneCall...")
  175.   (set #msg-installonline2    "Installiere französische Online-Hilfe für PhoneCall...")
  176.   (set #msg-installonline3    "Installiere griechische Online-Hilfe für PhoneCall...")
  177.   (set #msg-asktextfield      "Möchten Sie das\n\nTextField.gadget Version %ld.%ld\n\nin das 'SYS:Classes/Gadgets' Verzeichnis installieren ?\n\nDie aktuelle Version ist %ld.%ld\n\n")
  178.   (set #msg-textfieldhelp     "Installiert die mitgelieferte Version des TextField.gadget in das 'SYS:Classes/Gadgets' Verzeichnis, wenn Sie möchten.")
  179.   (set #msg-installtextfield  "\nKopiere das TextField.gadget...\n")
  180.   (set #msg-installpb         "\nKopiere eine PhoneCall BasisDatei...\n")
  181.   (set #msg-bye               "Viel Spaß mit PhoneCall\nBitte unterstützen Sie die Idee der Shareware !")
  182.   (set #msg-docdir            "Anleitung")
  183.  )
  184. )
  185. ;========================================================
  186.  
  187.  (complete 0)
  188.  (welcome)
  189.  
  190.  (set currentver (/ (getversion "SYS:Classes/Gadgets/textfield.gadget") 65536))
  191.  (set currentrev (BITAND (getversion "SYS:Classes/Gadgets/textfield.gadget") 65535))
  192.  (set myver      (/ (getversion "Classes/Gadgets/textfield.gadget") 65536))
  193.  (set myrev      (BITAND (getversion "Classes/Gadgets/textfield.gadget") 65535))
  194.  
  195.  (if (< (/ (getversion) 65536) 37)
  196.    (abort #msg-bad-Kick)
  197.  )
  198.  
  199. (set pcalldest
  200.     (askdir
  201.         (prompt #msg-pcalldest PhoneCall)
  202.         (help @askdir-help)
  203.         (default @default-dest)
  204.     )
  205. )
  206.  
  207. (set pcalldir           (tackon pcalldest "PhoneCall"))
  208. (set docdir             (tackon pcalldir #msg-docdir))
  209. (set @default-dest      pcalldir)
  210. (set pcalldata          (tackon pcalldir "PhoneCall.pb"))
  211. (set oldvernum 0)
  212.  
  213. ;**
  214. ;**  Create directory/Check if there is already a copy installed
  215. ;**
  216.  
  217. (complete 10)
  218.  
  219. (set extype (exists pcalldir))
  220. (if (= extype 1) (abort #msg-abort))
  221. (if (= extype 2)
  222.     (
  223.         (if (exists (tackon pcalldir "PhoneCall"))
  224.             (
  225.                 (set oldvernum (getversion (tackon pcalldir "PhoneCall")))
  226.                 (message #msg-existMsg)
  227.             )
  228.         )
  229.     )
  230.     (makedir pcalldir)
  231. )
  232. (makedir docdir (infos))
  233.  
  234. (copyfiles
  235.      (source "def_Icons/PhoneCall.info")
  236.      (dest pcalldest)
  237.      (files)
  238. )
  239.  
  240. (set oldver (/ oldvernum 65536))
  241. (set oldrev (- oldvernum (* oldver 65536) ) )
  242.  
  243. (complete 20)
  244.  
  245.  (set destdir
  246.     (askdir (prompt #msg-destdir)
  247.                     (help @askdir-help)
  248.                     (default pcalldir)
  249.     )
  250.  )
  251.  
  252. (complete 25)
  253.  
  254. (copyfiles
  255.     (prompt (#msg-copypc destdir))
  256.     (source "PhoneCall")
  257.     (dest destdir)
  258.     (files)
  259. )
  260.  
  261. (complete 30)
  262.  
  263. (set iconchoice
  264.     (askchoice
  265.         (prompt #msg-askicon)
  266.         (choices #msg-icon1
  267.                  #msg-icon2
  268.                  #msg-icon3
  269.                  #msg-icon4
  270.                  #msg-icon5)
  271.         (help @askoptions-help)
  272.     )
  273. )
  274.  
  275. (complete 35)
  276.  
  277. (if (= iconchoice 0)
  278.     (
  279.         (copyfiles
  280.             (prompt (#msg-installIcon #msg-icon1))
  281.             (source "def_Icons/PhoneCall_MWB.info")
  282.             (newname "PhoneCall.info")
  283.             (dest destdir)
  284.             (help @copyfiles-help)
  285.             (files)
  286.         )
  287.     )
  288. )
  289.  
  290. (complete 35)
  291.  
  292. (if (= iconchoice 1)
  293.     (
  294.         (copyfiles
  295.                 (prompt (#msg-installIcon #msg-icon2))
  296.                 (source "def_Icons/PhoneCall_JODEL.info")
  297.                 (newname "PhoneCall.info")
  298.                 (dest destdir)
  299.                 (help @copyfiles-help)
  300.                 (files)
  301.         )
  302.     )
  303. )
  304.  
  305. (complete 35)
  306.  
  307. (if (= iconchoice 2)
  308.     (
  309.         (copyfiles
  310.                 (prompt (#msg-installIcon #msg-icon3))
  311.                 (source "def_Icons/PhoneCall_ROM2.info")
  312.                 (newname "PhoneCall.info")
  313.                 (dest destdir)
  314.                 (help @copyfiles-help)
  315.                 (files)
  316.         )
  317.     )
  318. )
  319.  
  320. (complete 35)
  321.  
  322. (if (= iconchoice 3)
  323.     (
  324.         (copyfiles
  325.                 (prompt (#msg-installIcon #msg-icon4))
  326.                 (source "def_Icons/PhoneCall_ROM1.info")
  327.                 (newname "PhoneCall.info")
  328.                 (dest destdir)
  329.                 (help @copyfiles-help)
  330.                 (files)
  331.         )
  332.     )
  333. )
  334.  
  335. (complete 35)
  336.  
  337. (if (= iconchoice 4)
  338.     (
  339.         (copyfiles
  340.                 (prompt (#msg-installIcon #msg-icon5))
  341.                 (source "def_Icons/PhoneCall_NEWICON.info")
  342.                 (newname "PhoneCall.info")
  343.                 (dest destdir)
  344.                 (help @copyfiles-help)
  345.                 (files)
  346.         )
  347.     )
  348. )
  349.  
  350. (complete 40)
  351.  
  352. (set docchoice
  353.     (askoptions
  354.         (prompt #msg-askdoc)
  355.         (choices #msg-guidedoc
  356.                  #msg-dvidoc
  357.                  #msg-txtdoc
  358.                  #msg-guidedoc3
  359.                  #msg-txtdoc3)
  360.         (help @askoptions-help)
  361.     )
  362. )
  363.  
  364. (complete 50)
  365.  
  366. (if (IN docchoice 0)
  367.     (
  368.         (copyfiles
  369.             (prompt #msg-installguide)
  370.             (source "Document/deutsch/PhoneCall.guide")
  371.             (dest docdir)
  372.             (help @copyfiles-help)
  373.             (infos)
  374.         )
  375.     )
  376. )
  377.  
  378. (complete 55)
  379.  
  380. (if (IN docchoice 1)
  381.     (
  382.         (copyfiles
  383.                 (prompt #msg-installdvi)
  384.                 (source "Document/deutsch/PhoneCall.DVI")
  385.                 (dest docdir)
  386.                 (help @copyfiles-help)
  387.                 (infos)
  388.         )
  389.     )
  390. )
  391.  
  392. (complete 60)
  393.  
  394. (if (IN docchoice 2)
  395.     (
  396.         (copyfiles
  397.                 (prompt #msg-installtxt)
  398.                 (source "Document/deutsch/PhoneCall.dok")
  399.                 (dest docdir)
  400.                 (help @copyfiles-help)
  401.                 (infos)
  402.         )
  403.     )
  404. )
  405.  
  406. (complete 70)
  407.  
  408. (if (IN docchoice 3)
  409.     (
  410.         (copyfiles
  411.             (prompt #msg-installguide)
  412.             (source "Document/greek/PhoneCall.guide")
  413.             (dest docdir)
  414.             (help @copyfiles-help)
  415.             (infos)
  416.         )
  417.     )
  418. )
  419.  
  420. (if (IN docchoice 4)
  421.     (
  422.         (copyfiles
  423.             (prompt #msg-installtxt)
  424.             (source "Document/greek/PhoneCall.doc")
  425.             (dest docdir)
  426.             (help @copyfiles-help)
  427.             (infos)
  428.         )
  429.     )
  430. )
  431.  
  432. (complete 75)
  433.  
  434. (if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
  435.  (
  436.     (set language
  437.        (askoptions
  438.          (prompt #msg-asklanguage)
  439.          (choices #msg-language0
  440.                   #msg-language1
  441.                   #msg-language2
  442.                   #msg-language3)
  443.          (help #msg-languagehelp)
  444.        )
  445.     )
  446.  
  447.   (if (IN language 1)
  448.     (
  449.        (copyfiles
  450.           (source "Catalogs/deutsch/PhoneCall.catalog")
  451.           (dest "Locale:catalogs/deutsch")
  452.           (prompt #msg-installlanguage1)
  453.        )
  454.     )
  455.   )
  456.  
  457.   (if (IN language 2)
  458.     (
  459.        (copyfiles
  460.           (source "Catalogs/français/PhoneCall.catalog")
  461.           (dest "Locale:catalogs/français")
  462.           (prompt #msg-installlanguage2)
  463.        )
  464.     )
  465.   )
  466.  
  467.   (if (IN language 3)
  468.     (
  469.        (copyfiles
  470.           (source "Catalogs/greek/PhoneCall.catalog")
  471.           (dest "Locale:catalogs/greek")
  472.           (prompt #msg-installlanguage3)
  473.        )
  474.     )
  475.   )
  476.  
  477.  )
  478. )
  479.  
  480. (complete 80)
  481.  
  482. (if (AND (NOT (= (getassign "Help") "")) (exists "libs:locale.library"))
  483.   (
  484.     (set helpfile
  485.        (askoptions
  486.          (prompt #msg-askonline)
  487.          (choices #msg-language1
  488.                   #msg-language3)
  489.          (help #msg-onlinehelp)
  490.      )
  491.   )
  492.  
  493.   (if (IN helpfile 0)
  494.     (
  495.        (copyfiles
  496.           (source "Document/deutsch/PhoneCall.guide")
  497.           (dest "Locale:help/deutsch")
  498.           (prompt #msg-installonline1)
  499.        )
  500.     )
  501.  
  502.   )
  503.  
  504.   (if (IN helpfile 1)
  505.     (
  506.        (copyfiles
  507.           (source "Document/greek/PhoneCall.guide")
  508.           (dest "Locale:help/greek")
  509.           (prompt #msg-installonline3)
  510.        )
  511.     )
  512.  
  513.   )
  514.  
  515.  )
  516. )
  517.  
  518. (complete 85)
  519.  
  520.         (if(askbool
  521.                 (prompt (#msg-asktextfield myver myrev currentver currentrev))
  522.                 (help #msg-textfieldhelp )
  523.                 (default 1))
  524.                 (copyfiles
  525.                         (prompt #msg-installtextfield)
  526.                         (source "Classes/Gadgets/TextField.gadget")
  527.                         (dest   "SYS:Classes/Gadgets/")
  528.                         (files)
  529.                 )
  530.         )
  531.  
  532. (complete 90)
  533.  
  534. (set exdata (exists pcalldata))
  535.  
  536. (if (<> exdata 1)
  537.    (copyfiles
  538.            (prompt #msg-installpb)
  539.            (source "PhoneCall.pb")
  540.            (dest   pcalldir)
  541.            (files)
  542.    )
  543. )
  544.  
  545. (complete 100)
  546. (exit #msg-bye)
  547.  
  548.